EXTENDED CPC DSK File Disk-Info Spectaculator(Track-Info R Track-Info  R UFCS BASc DISK cPLUS3DOSl100)Z p(6) c)0:0:7::9000(# dy,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;"  ";y+6,x;"  ";y+7,x;"  ";y+8,x;"  ": ny,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;" ";y+6,x;" ";y+7,x;" ";y+8,x;" ": xy,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;"  ";y+6,x;"  ";y+7,x;"  ";y+8,x;"  ": y,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;" ";y+6,x;" ";y+7,x;" ";y+8,x;" ":  ""  0,0;"Track-Info  R "  B""  ""  ""  =""980 ""981  :2290:980: =900:#0;1,0;"LIVES: ";lives:start wy=10 :i=16Track-Info  R :p(i)=5*(i-1):x=p(i):100d+20*(i=2):i:valores iniciales )y=10 :ct=1:counter=0 621,0;" PRESS SPACE WHEN YOU ARE READY " " "1041 =" "1042 !20,0;6,,,,; counter=counter+1 $#counter=4.1}L,0 ..counter=5counter=0:1100L 0,=" "Ŧ="p"p(2)=p(2)+1 2=x=p(2):120x+10 *(((x/2))=x/2) 8p(2)261150~ Mct=21150~ Nct=61120` Vp(ct+1)>p(ct)+5p(ct)=p(ct)+1:y=10 :x=p(ct):100d+10 *(((x/2))=x/2):1130j `Yp(ct)=p(ct)+1:y=10 :x=p(ct):100d+10 *(((x/2))=x/2) jFp(ct)=27i=10 18:i,27;5;" ":i ~,=" "Ŧ="p"p(2)=p(2)+1 =x=p(2):120x+10 *(((x/2))=x/2) p(2)Hmcx=mx:mcy=my:mx=mx+(*3)-1:my=my+(*3)-1 ?mx<15mx=15 @mx>18mx=18 Amy<10 my=10 Bmy>12 my=12 H=" "ok2300 R=" "ok2250 \ct=1-ct f*10 ,14;5;6;""  21004 ʃ.1}L,30:4,15;0;7;" ";5,15;" HERETIC! ";6,15;" " 1,-10 ԁlives=lives-1:lives=-112 ,10 ;1;7;" GAME OVER! ":1,10 :0::10  2000 "RVD. PARKINSON","","YOU MUST PRESS","SPACE AT THE RIGHT TIME","TO TAKE COMMUNION.","FAIL AND YOU","WILL GO TO HELL!":2280:i=17:a$:2+2*i,16-a$/2;a$;:i: "FOLLOW THE LINE","","YOU MUST PRESS","SPACE TO ADVANCE IN","YOUR WAY TO THE CHURCH.","BE CAREFUL AND KEEP","IN THE LINE!!":2290:i=17:a$:2+2*i,16-a$/2;a$;:i: i.5,10 :.2~L,20:.2~L,0:.5,20:.5,15:0: |"HOLY HOLY!","","NOW YOU'VE BEEN SAVED","NOW YOU JUST HAVE","TO FIGHT TEMPTATION","AND LIVE PURE UNTIL","YOU DIE AT 77..." R2310 :i=17:a$:2+2*i,16-a$/2;a$:i SPACE==SIN!!! #940:3450z :3460 ]#0;0,0;"TIME LEFT UNTIL GOING TO HEAVEN:67 YEARS, 340 DAYS, 11 HOURS " )0,6;" PRESS SPACE TO SIN " =" "3033 =" "3060 3040 y3470 :.1}L,0:100d:3480 :.1}L,2:20:3490 :.1}L,4:20 7:945:i=030:.1}L,40(:i g21,0;"YOU COULDN'T RESIST TEMPTATION!";#0;1,0;"ROTT IN HELL, SINNER!" $1,0:1,-15  980 \12 ,10 ;1;7;" GAME OVER! ":1,10 :0::10 p z10 ,16;" ";11 ,16;"  ";12 ,16;"";13 ,16;"";14,16;"Track-Info  R ";15,16;"";16,16;"  ";17,16;"  ";18,16;"  ": 10 ,11 ;" ";11 ,11 ;" ";12 ,11 ;" ";13 ,11 ;"";14,11 ;"";15,11 ;"";16,11 ;"  ";17,11 ;"  ";18,11 ;" ": &15,11 ;"": _14,15;"";15,15;"";15,16;"": J14,15;"";15,16;"  ": #' #(menu #22,0;:930:0,0;"ULTIMATE 1ST COMMUNION SIMULATOR";#0;1,4;"(C) 2008 THE MOJON TWINS" #< 980 #lives=7:999 !PLUS3DOSl100)Z p(6) c)0:0:7::9000(# dy,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;"  ";y+6,x;"  ";y+7,x;"  ";y+8,x;"  ": ny,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;" ";y+6,x;" ";y+7,x;" ";y+8,x;" ": xy,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;"  ";y+6,x;"  ";y+7,x;"  ";y+8,x;"  ": y,x;"  ";y+1,x;"  ";y+2,x;"  ";y+3,x;"  ";y+4,x;"  ";y+5,x;" ";y+6,x;" ";y+7,x;" ";y+8,x;" ":  ""  0,0;"Track-Info  R "  B""  ""  ""  =""980 ""981  :2290:980: =900:#0;1,0;"LIVES: ";lives:start wy=10 :i=16:p(i)=5*(i-1):x=p(i):100d+20*(i=2):i:valores iniciales )y=10 :ct=1:counter=0 621,0;" PRESS SPACE WHEN YOU ARE READY " " "1041 =" "1042 !20,0;6,,,,; counter=counter+1 $#counter=4.1}L,0 ..counter=5counter=0:1100L 0,=" "Ŧ="p"p(2)=p(2)+1 2=x=p(2):120x+10 *(((x/2))=x/2) Track-Info  R 8p(2)261150~ Mct=21150~ Nct=61120` Vp(ct+1)>p(ct)+5p(ct)=p(ct)+1:y=10 :x=p(ct):100d+10 *(((x/2))=x/2):1130j `Yp(ct)=p(ct)+1:y=10 :x=p(ct):100d+10 *(((x/2))=x/2) jFp(ct)=27i=10 18:i,27;5;" ":i ~,=" "Ŧ="p"p(2)=p(2)+1 =x=p(2):120x+10 *(((x/2))=x/2) p(2)Hmcx=mx:mcy=my:mx=mx+(*3)-1:my=my+(*3)-1 ?mx<15mx=15 @mx>18mx=18 Amy<10 my=10 Bmy>12 my=12 H=" "ok2300 R=" "ok2250 \ct=1-ct f*10 ,14;5;6;""  21004 ʃ.1}L,30:4,15;0;7;" ";5,15;" HERETIC! ";6,15;" " 1,-10 ԁlives=lives-1:lives=-112 ,10 ;1;7;" GAME OVER! ":1,10 :0::10  2000 "RVD. PARKINSON","","YOU MUST PRESS","SPACE AT THE RIGHT TIME","TO TAKE COMMUNION.","FAIL AND YOU","WILL GO TO HELL!":2280:i=17:a$:2+2*i,16-a$/2;a$;:i: "FOLLOW THE LINE","","YOU MUST PRESS","SPACE TO ADVANCE IN","YOUR WAY TO THE CHURCH.","BE CAREFUL AND KEEP","IN THE LINE!!":2290:i=17:a$:2+2*i,16-a$/2;a$;:i: i.5,10 :.2~L,20:.2~L,0:.5,20:.5,15:0: |"HOLY HOLY!","","NOW YOU'VE BEEN SAVED","NOW YOU JUST HAVE","TO FIGHT TEMPTATION","AND LIVE PURE UNTIL","YOU DIE AT 77..." R2310 :i=17:a$:2+2*i,16-a$/2;a$:i SPACE==SIN!!! #940:3450z :3460 ]#0;0,0;"TIME LEFT UNTIL GOING TO HEAVEN:67 YEARS, 340 DAYS, 11 HOURS " )0,6;" PRESS SPACE TO SIN " =" "3033 =" "3060 3040 y3470 :.1}L,0:100d:3480 :.1}L,2:20:3490 :.1}L,4:20 7:945:i=030:.1}L,40(:i g21,0;"YOU COULDN'T RESIST TEMPTATION!";#0;1,0;"ROTT IN HELL, SINNER!" $1,0:1,-15  980 \12 ,10 ;1;7;" GAME OVER! ":1,10 :0::10 p z10 ,16;" ";11 ,16;"  ";12 ,16;"";13 ,16;"";14,16;"";15,16;"";16,16;"  ";17,16;"  ";18,16;"  ": 10 ,11 ;" ";11 ,11 ;" ";12 ,11 ;" ";13 ,11 ;"";14,11 ;"";15,11 ;"";16,11 ;"  ";17,11 ;"  ";18,11 ;" ": &15,11 ;"": _14,15;"";15,15Track-Info  R ;"";15,16;"": J14,15;"";15,16;"  ": #' #(menu #22,0;:930:0,0;"ULTIMATE 1ST COMMUNION SIMULATOR";#0;1,4;"(C) 2008 THE MOJON TWINS" #< 980 #lives=7:999 !Track-Info  R Track-Info R         Track-Info R         Track-Info R         Track-Info R         Track-Info R         Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info  R Track-Info R         Track-Info ! R!!!!!!!!! Track-Info " R""""""""" Track-Info # R######### Track-Info $ R$$$$$$$$$ Track-Info % R%%%%%%%%% Track-Info & R&&&&&&&&& Track-Info ' R'''''''''